home *** CD-ROM | disk | FTP | other *** search
/ Aminet 15 / Aminet 15 - Nov 1996.iso / Aminet / misc / emu / AMIGHPv2a.lha / AMIGHPv2a / EXAMPLES / BEEP.AMIGHP next >
Text File  |  1996-09-24  |  144b  |  18 lines
  1. DEF
  2.    freq duree  INTEGER
  3. ENDDEF
  4.  
  5. 1000 duree STO
  6. 0 freq STO
  7.  
  8. WHILE freq 1000 <
  9. DO
  10.  
  11.   duree freq BEEP
  12.   freq 200 ADD
  13.   freq STO
  14.  
  15. ENDWHILE
  16.  
  17. EXIT
  18.